home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 2 / AACD 2.iso / AACD / Programming / fpc / amigaunits / keymap.pas < prev    next >
Pascal/Delphi Source File  |  1998-09-22  |  4KB  |  158 lines
  1. {
  2.     This file is part of the Free Pascal run time library.
  3.  
  4.     A file in Amiga system run time library.
  5.     Copyright (c) 1998 by Nils Sjoholm
  6.     member of the Amiga RTL development team.
  7.  
  8.     See the file COPYING.FPC, included in this distribution,
  9.     for details about the copyright.
  10.  
  11.     This program is distributed in the hope that it will be useful,
  12.     but WITHOUT ANY WARRANTY; without even the implied warranty of
  13.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  14.  
  15.  **********************************************************************}
  16.  
  17. {
  18.         keymap.resource definitions and console.device key map definitions
  19. }
  20.  
  21. unit keymap;
  22.  
  23. INTERFACE
  24.  
  25. uses exec, inputevent;
  26.  
  27. Type
  28.  
  29.     pKeyMap = ^tKeyMap;
  30.     tKeyMap = record
  31.         km_LoKeyMapTypes        : Pointer;
  32.         km_LoKeyMap             : Pointer;
  33.         km_LoCapsable           : Pointer;
  34.         km_LoRepeatable         : Pointer;
  35.         km_HiKeyMapTypes        : Pointer;
  36.         km_HiKeyMap             : Pointer;
  37.         km_HiCapsable           : Pointer;
  38.         km_HiRepeatable         : Pointer;
  39.     end;
  40.  
  41.  
  42.     pKeymapNode = ^tKeyMapNode;
  43.     tKeyMapNode = record
  44.         kn_Node         : tNode;         { including name of keymap }
  45.         kn_KeyMap       : tKeyMap;
  46.     end;
  47.  
  48. { the structure of keymap.resource }
  49.  
  50.     pKeyMapResource = ^tKeyMapResource;
  51.     tKeyMapResource = record
  52.         kr_Node         : tNode;
  53.         kr_List         : tList;         { a list of KeyMapNodes }
  54.     end;
  55.  
  56.  
  57. Const
  58.  
  59. { Key Map Types }
  60.  
  61.     KC_NOQUAL           = 0;
  62.     KC_VANILLA          = 7;    { note that SHIFT+ALT+CTRL is VANILLA }
  63.     KCB_SHIFT           = 0;
  64.     KCF_SHIFT           = $01;
  65.     KCB_ALT             = 1;
  66.     KCF_ALT             = $02;
  67.     KCB_CONTROL         = 2;
  68.     KCF_CONTROL         = $04;
  69.     KCB_DOWNUP          = 3;
  70.     KCF_DOWNUP          = $08;
  71.  
  72.     KCB_DEAD            = 5;    { may be dead or modified by dead key:  }
  73.     KCF_DEAD            = $20;  {   use dead prefix bytes               }
  74.  
  75.     KCB_STRING          = 6;
  76.     KCF_STRING          = $40;
  77.  
  78.     KCB_NOP             = 7;
  79.     KCF_NOP             = $80;
  80.  
  81.  
  82. { Dead Prefix Bytes }
  83.  
  84.     DPB_MOD             = 0;
  85.     DPF_MOD             = $01;
  86.     DPB_DEAD            = 3;
  87.     DPF_DEAD            = $08;
  88.  
  89.     DP_2DINDEXMASK      = $0f;  { mask for index for 1st of two dead keys }
  90.     DP_2DFACSHIFT       = 4;    { shift for factor for 1st of two dead keys }
  91.  
  92. VAR KeymapBase : pLibrary;
  93.  
  94. FUNCTION AskKeyMapDefault : pKeyMap;
  95. FUNCTION MapANSI(thestring : pCHAR; count : LONGINT; buffer : pCHAR; length : LONGINT; keyMap : pKeyMap) : LONGINT;
  96. FUNCTION MapRawKey(event : pInputEvent; buffer : pCHAR; length : LONGINT; keyMap : pKeyMap) : INTEGER;
  97. PROCEDURE SetKeyMapDefault(keyMap : pKeyMap);
  98.  
  99. IMPLEMENTATION
  100.  
  101. FUNCTION AskKeyMapDefault : pKeyMap;
  102. BEGIN
  103.   ASM
  104.     MOVE.L  A6,-(A7)
  105.     MOVEA.L KeymapBase,A6
  106.     JSR -036(A6)
  107.     MOVEA.L (A7)+,A6
  108.     MOVE.L  D0,@RESULT
  109.   END;
  110. END;
  111.  
  112. FUNCTION MapANSI(thestring : pCHAR; count : LONGINT; buffer : pCHAR; length : LONGINT; keyMap : pKeyMap) : LONGINT;
  113. BEGIN
  114.   ASM
  115.     MOVE.L  A6,-(A7)
  116.     MOVEA.L thestring,A0
  117.     MOVE.L  count,D0
  118.     MOVEA.L buffer,A1
  119.     MOVE.L  length,D1
  120.     MOVEA.L keyMap,A2
  121.     MOVEA.L KeymapBase,A6
  122.     JSR -048(A6)
  123.     MOVEA.L (A7)+,A6
  124.     MOVE.L  D0,@RESULT
  125.   END;
  126. END;
  127.  
  128. FUNCTION MapRawKey(event : pInputEvent; buffer : pCHAR; length : LONGINT; keyMap : pKeyMap) : INTEGER;
  129. BEGIN
  130.   ASM
  131.     MOVE.L  A6,-(A7)
  132.     MOVEA.L event,A0
  133.     MOVEA.L buffer,A1
  134.     MOVE.L  length,D1
  135.     MOVEA.L keyMap,A2
  136.     MOVEA.L KeymapBase,A6
  137.     JSR -042(A6)
  138.     MOVEA.L (A7)+,A6
  139.     MOVE.L  D0,@RESULT
  140.   END;
  141. END;
  142.  
  143. PROCEDURE SetKeyMapDefault(keyMap : pKeyMap);
  144. BEGIN
  145.   ASM
  146.     MOVE.L  A6,-(A7)
  147.     MOVEA.L keyMap,A0
  148.     MOVEA.L KeymapBase,A6
  149.     JSR -030(A6)
  150.     MOVEA.L (A7)+,A6
  151.   END;
  152. END;
  153.  
  154. END. (* UNIT KEYMAP *)
  155.  
  156.  
  157.  
  158.